home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
H-Graphics
/
(c)h4.d64
/
Kml pad scan 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
810b
|
30 lines
5 REM*SIMPLE ML KOALA PAD SCAN
6 REM*RELOCATABLE
7 REM*BY ROGER D. BURGE, LONDON, ONTARIO, CANADA
19 POKE53281,1:PRINT"[147][144] ML PAD SCAN #1 "
20 PRINTSPC(11)"BY ROGER D. BURGE[144]
21 [153]"RETURNS PAD X AT 251
22 PRINT"RETURNS PAD Y AT 252
25 [153]"RETURNS BUTTONS AT 253
26 PRINT"BUTTON #1 =1
27 [153]"BUTTON #2 =2
28 PRINT"BUTTONS #1 + #2 =3
30 [153]"PRESS A KEY FOR DEMO
31 PRINT"HIT F1 [146] TO EXIT & LIST SUBROUTINE":POKE198,.
41 GETA$:IFA$=""THEN41
42 POKE198,.
100 FORT=820TO874:READA:POKET,A:NEXT:PRINTPEEK(874)
105 SYS820:PRINTPEEK(251),PEEK(252),PEEK(253)
106 GETA$:IFA$="[133]"THENLIST100-
107 GOTO105
110 DATA162,128,202,224,0,208,251
115 DATA173,25,212,133,251
120 DATA173,26,212,133,252
125 DATA173,1,220
130 DATA41,12,201,4,208,4,169,2,208,18
135 DATA201,8,208,4,169,1,208,10
140 DATA201,0,208,4,169,3,208,2
145 DATA169,0,133,253
150 DATA169,0,133,198
155 DATA96